home *** CD-ROM | disk | FTP | other *** search
/ Aminet 16 / Aminet 16 (1996)(GTI - Schatztruhe)[!][Dec 1996].iso / Aminet / dev / src / wangisrc.lha / wangi / z / RubbishDump / Install_Dump < prev    next >
Text File  |  1995-07-11  |  2KB  |  93 lines
  1. ;$VER: RubbishDump_install 1.0
  2. ;$AUTHOR: Lee Kindness
  3.  
  4.  
  5. (copylib
  6.     (prompt 'Copying Rubbish Dump to WBStartup');
  7.     (help @copyfiles-help)
  8.     (source 'RubbishDump')
  9.     (dest 'SYS:WBStartup')
  10.     (infos)
  11.     (noposition)
  12.     (confirm)
  13. )
  14.  
  15. (copylib
  16.     (prompt 'Copying Upd to C:');
  17.     (help @copyfiles-help)
  18.     (source 'Upd/Upd')
  19.     (dest 'C:')
  20.     (confirm)
  21. )
  22.  
  23. (makedir 'SYS:Prefs/Sounds'
  24.     (infos)
  25. )
  26.  
  27. (makedir 'Devs:Icons'
  28.     (infos)
  29. )
  30.  
  31. (copyfiles
  32.     (source 'Icons')
  33.     (dest (askdir
  34.         (prompt 'Select a drawer for the icons')
  35.         (help @askdir-help)
  36.         (default 'Devs:Icons')
  37.     ))
  38.     (pattern '#?.info')
  39.     (help @copyfiles-help)
  40.     (prompt 'Copying icons to Devs:Icons/')
  41.     (confirm)
  42. )
  43.  
  44. (copyfiles
  45.     (source 'Sounds')
  46.     (dest 'SYS:Prefs/Sounds')
  47.     (pattern '#?.8SVX')
  48.     (help @copyfiles-help)
  49.     (prompt 'Copying sound samples to SYS:Prefs/Sounds/')
  50.     (confirm)
  51. )
  52.  
  53. (if (= (exists 'S:Upd.ids') 0)
  54.     (Copyfiles
  55.         (source 'Upd/Upd.ids')
  56.         (dest 'S:')
  57.     )
  58. )
  59.  
  60. (run 'Echo >RAM:Cookie "LSK"')
  61.  
  62. (if (= (exists 'S:RDumpCookie') 0)
  63.     (
  64.         (Copyfiles
  65.             (source 'RAM:cookie')
  66.             (dest 'S:')
  67.             (newname 'RDumpCookie')
  68.         )
  69.         (run 'Type Trash.ids >>S:Upd.ids')
  70.     )
  71. )
  72.  
  73.  
  74. (startup 'RubbishDump'
  75.     (prompt 'Adding lines to user-startup')
  76.     (help @startup-help)
  77.     (command ';Remove following if you launch Upd or RexxMast elsewhere\n'
  78.              'SYS:System/RexxMast >NIL:\n'
  79.              'Run >NIL: <NIL: C:Upd')
  80. )
  81.  
  82. (set @default-dest '')
  83.  
  84. (transcript '\nRubbish Dump installed\n')
  85.  
  86. (exit 'A reboot is required before RubbishDump can be used.\n I hope you find Rubbish Dump useful.\n    LSK _\\\\//')
  87.  
  88.     
  89.  
  90.  
  91.  
  92.  
  93.